About
Otázka od: Andreas Bednarek
24. 10. 2002 9:09
Ahoj,
Chci do aplikace zařadit About dialog a mam 3 otazky:
1. nevite, jak za běhu aplikace zjistit informace o její verzi? Nikde jsem
to nenašel.
2. Jak z aplikace spustit browser, aby otevřel konkrétní stránku www?
3. Podobně, jak spustit default mail klienta, resp. okno Nová zpráva s
nastavenou cílovou e-mail adresou?
díky z každou radu
Andreas (D4, W98)
Odpovedá: Petr Brant
24. 10. 2002 16:14
1. Tato funkce je v JCL, bohuzel si ale nepamatuji nazev - snad
GetFileVersion apod.
2. a 3. Pres funkci ShellExecute, adresa stranky i mailova adresa se
vkladaji jako jeden z parametru.
RNDr. Petr Brant [brant@dcomm.cz]
D&COMM s.r.o.
Korunovační 6
Praha 7
tel. +420724007234
Subject: About
1. nevite, jak za běhu aplikace zjistit informace o její verzi?
Nikde jsem
to nenašel.
2. Jak z aplikace spustit browser, aby otevřel konkrétní stránku
www?
3. Podobně, jak spustit default mail klienta, resp. okno Nová zpráva
s
nastavenou cílovou e-mail adresou?
Odpovedá: Tomáš Jantač
24. 10. 2002 14:09
> Chci do aplikace zařadit About dialog a mam 3 otazky:
> 1. nevite, jak za běhu aplikace zjistit informace o její verzi? Nikde jsem
> to nenašel.
function TfAbout.GetFileVersion: String;
var
Size, Size2: DWord;
Pt, Pt2: Pointer;
MajorVersion, MinorVersion, ReleaseVersion, BuildVersion : string;
begin
Size := GetFileVersionInfoSize ( PChar( Application.EXEName ), Size2);
if Size <= 0 then { soubor zadaneho jmena sice existuje,
ale neobsahuje informace o verzi }
begin
Result := '';
Exit;
end;
{ vse je OK, muzu zacit plnit vnitrni promenne }
GetMem (Pt, Size);
try
GetFileVersionInfo (PChar ( Application.EXEName), 0, Size, Pt);
// pevne informace
VerQueryValue (Pt, '\', Pt2, Size2);
with TVSFixedFileInfo (Pt2^) do
begin
MajorVersion := IntToStr (HiWord (dwFileVersionMS));
MinorVersion := IntToStr (LoWord (dwFileVersionMS));
ReleaseVersion := IntToStr (HiWord (dwFileVersionLS));
BuildVersion := IntToStr (LoWord (dwFileVersionLS));
end;
finally
FreeMem (Pt);
end;
Result := MajorVersion + '.' + MinorVersion + '.' + ReleaseVersion + '.'
+ BuildVersion;
end;
> 2. Jak z aplikace spustit browser, aby otevřel konkrétní stránku www?
ShellExecute(Application.Handle, 'open',
PCHar('http:\\www.papouch.com'),'', '', sw_showMaximized)
> 3. Podobně, jak spustit default mail klienta, resp. okno Nová zpráva s
> nastavenou cílovou e-mail adresou?
ShellExecute(Application.Handle, 'open',
PCHar('mailto:
papouch@papouch.com'),'', '', sw_showMaximized);
Tomas Jantac
PaPouch elektronika
www.papouch.com
Odpovedá: Vymazal Milan
24. 10. 2002 12:18
Hello Andreas,
Thursday, October 24, 2002, 9:13:27 AM, you wrote:
AB> Ahoj,
AB> Chci do aplikace zařadit About dialog a mam 3 otazky:
AB> 1. nevite, jak za běhu aplikace zjistit informace o její verzi? Nikde jsem
AB> to nenašel.
tohle je na zjisteni verze souboru
function GetFileVersion(Soubor: String): String;
const
VerFixedInfo: PChar = '\';
var
Size : DWORD;
Sz : ULONG;
Handle: THandle;
Buffer: string;
FFixedBuffer: PVSFixedFileInfo;
begin
Size := GetFileVersionInfoSize(PChar(Soubor), Handle);
if Size > 0 then
begin
SetLength(Buffer, Size);
GetFileVersionInfo(PChar(Soubor), Handle, Size, PChar(Buffer));
end;
VerQueryValue(PChar(Buffer), VerFixedInfo, Pointer(FFixedBuffer), Sz);
with FFixedBuffer^ do
begin
Result:= IntToStr(dwFileVersionMS shr 16) + '.';
Result:= Result + IntToStr(dwFileVersionMS and $FFFF) + '.';
Result:= Result + IntToStr(dwFileVersionLS shr 16) + '.';
Result:= Result + IntToStr(dwFileVersionLS and $FFFF);
end;
end;
AB> 2. Jak z aplikace spustit browser, aby otevřel konkrétní stránku www?
ShellExecute
AB> 3. Podobně, jak spustit default mail klienta, resp. okno Nová zpráva s
AB> nastavenou cílovou e-mail adresou?
pres mailto:
AB> díky z každou radu
AB> Andreas (D4, W98)
--
Best regards,
Vymazal mailto:vymazal.milan@seznam.cz
Odpovedá: ViragI@logica.com
24. 10. 2002 17:01
Zdravím.
2. ShellExecute(Application.Handle, NIL, PChar('www.seznam.cz'), NIL,NIL,
SW_SHOWNOACTIVATE);
3. ShellExecute(Application.Handle, NIL, PChar('mailto:novak@jehofirma.cz'),
NIL,NIL, SW_SHOWNOACTIVATE);
Ivan Virag
-----Original Message-----
From: Andreas Bednarek [mailto:bednarek@digitus.cz]
Sent: Thursday, October 24, 2002 9:13 AM
To: delphi-l@clexpert.cz
Subject: About
Ahoj,
Chci do aplikace zařadit About dialog a mam 3 otazky:
1. nevite, jak za běhu aplikace zjistit informace o její verzi? Nikde jsem
to nenašel.
2. Jak z aplikace spustit browser, aby otevřel konkrétní stránku www?
3. Podobně, jak spustit default mail klienta, resp. okno Nová zpráva s
nastavenou cílovou e-mail adresou?
díky z každou radu
Andreas (D4, W98)
This e-mail and any attachment is for authorised use by the intended
recipient(s) only. It may contain proprietary material, confidential
information and/or be subject to legal privilege. It should not be copied,
disclosed to, retained or used by, any other party. If you are not an intended
recipient then please promptly delete this e-mail and any attachment and all
copies and inform the sender. Thank you.
Odpovedá: Andreas Bednarek
24. 10. 2002 12:31
no ne, to jsou finty 
diky
----- Original Message -----
From: Vymazal Milan <vymazal.milan@seznam.cz>
To: Andreas Bednarek <delphi-l@clexpert.cz>
Sent: Thursday, October 24, 2002 10:28 AM
Subject: Re: About
> Hello Andreas,
>
> Thursday, October 24, 2002, 9:13:27 AM, you wrote:
>
> AB> Ahoj,
>
> AB> Chci do aplikace zařadit About dialog a mam 3 otazky:
>
> AB> 1. nevite, jak za běhu aplikace zjistit informace o její verzi? Nikde
jsem
> AB> to nenašel.
>
> tohle je na zjisteni verze souboru
>
> function GetFileVersion(Soubor: String): String;
> const
> VerFixedInfo: PChar = '\';
> var
> Size : DWORD;
> Sz : ULONG;
> Handle: THandle;
> Buffer: string;
> FFixedBuffer: PVSFixedFileInfo;
> begin
> Size := GetFileVersionInfoSize(PChar(Soubor), Handle);
> if Size > 0 then
> begin
> SetLength(Buffer, Size);
> GetFileVersionInfo(PChar(Soubor), Handle, Size, PChar(Buffer));
> end;
> VerQueryValue(PChar(Buffer), VerFixedInfo, Pointer(FFixedBuffer), Sz);
>
> with FFixedBuffer^ do
> begin
> Result:= IntToStr(dwFileVersionMS shr 16) + '.';
> Result:= Result + IntToStr(dwFileVersionMS and $FFFF) + '.';
> Result:= Result + IntToStr(dwFileVersionLS shr 16) + '.';
> Result:= Result + IntToStr(dwFileVersionLS and $FFFF);
> end;
> end;
>
> AB> 2. Jak z aplikace spustit browser, aby otevřel konkrétní stránku www?
>
> ShellExecute
>
> AB> 3. Podobně, jak spustit default mail klienta, resp. okno Nová zpráva s
> AB> nastavenou cílovou e-mail adresou?
>
> pres mailto:
>
> AB> díky z každou radu
> AB> Andreas (D4, W98)
>
>
>
>
>
> --
> Best regards,
> Vymazal mailto:vymazal.milan@seznam.cz
Odpovedá: KALUS Jozef
24. 10. 2002 13:34
k tomu mailto este by malo nieco taketo fungovat treba ta vyskusat 
mailto:adresa@email.sk&subject=Skuska%20mailu&body=Pokec
joka
PS: ide to z html, snad to pojde aj z delphi, vyskusaj
-----Original Message-----
From: Andreas Bednarek [mailto:bednarek@digitus.cz]
Sent: Thursday, October 24, 2002 12:32 PM
To: delphi-l@clexpert.cz
Subject: Re: About
no ne, to jsou finty
diky
----- Original Message -----
From: Vymazal Milan <vymazal.milan@seznam.cz>
To: Andreas Bednarek <delphi-l@clexpert.cz>
Sent: Thursday, October 24, 2002 10:28 AM
Subject: Re: About
> Hello Andreas,
>
> Thursday, October 24, 2002, 9:13:27 AM, you wrote:
>
> AB> Ahoj,
>
> AB> Chci do aplikace zařadit About dialog a mam 3 otazky:
>
> AB> 1. nevite, jak za běhu aplikace zjistit informace o její verzi?
Nikde
jsem
> AB> to nenašel.
>
> tohle je na zjisteni verze souboru
>
> function GetFileVersion(Soubor: String): String;
> const
> VerFixedInfo: PChar = '\';
> var
> Size : DWORD;
> Sz : ULONG;
> Handle: THandle;
> Buffer: string;
> FFixedBuffer: PVSFixedFileInfo;
> begin
> Size := GetFileVersionInfoSize(PChar(Soubor), Handle);
> if Size > 0 then
> begin
> SetLength(Buffer, Size);
> GetFileVersionInfo(PChar(Soubor), Handle, Size, PChar(Buffer));
> end;
> VerQueryValue(PChar(Buffer), VerFixedInfo, Pointer(FFixedBuffer),
Sz);
>
> with FFixedBuffer^ do
> begin
> Result:= IntToStr(dwFileVersionMS shr 16) + '.';
> Result:= Result + IntToStr(dwFileVersionMS and $FFFF) + '.';
> Result:= Result + IntToStr(dwFileVersionLS shr 16) + '.';
> Result:= Result + IntToStr(dwFileVersionLS and $FFFF);
> end;
> end;
>
> AB> 2. Jak z aplikace spustit browser, aby otevřel konkrétní stránku
www?
>
> ShellExecute
>
> AB> 3. Podobně, jak spustit default mail klienta, resp. okno Nová
zpráva s
> AB> nastavenou cílovou e-mail adresou?
>
> pres mailto:
>
> AB> díky z každou radu
> AB> Andreas (D4, W98)
>
>
>
>
>
> --
> Best regards,
> Vymazal mailto:vymazal.milan@seznam.cz
__________ Informacia od NOD32 1.320 (20021022) __________
Tato sprava bola preverena systemom NOD32 pre Exchange.
http://www.eset.sk
Odpovedá: Petr Vones
24. 10. 2002 16:15
From: "Andreas Bednarek" <bednarek@digitus.cz>
> 1. nevite, jak za běhu aplikace zjistit informace o její verzi? Nikde jsem
> to nenašel.
Napriklad pomoci tridy TJclFileVersionInfo nebo funkce VersionFixedFileInfo v
unitu JclFileUtils z JCL:
http://sourceforge.net/project/showfiles.php?group_id=47514&release_id=100652
http://delphi-jedi.org/CODELIBJCL
Petr Vones
Odpovedá: Andreas Bednarek
25. 10. 2002 12:37
Ahoj,
zkousel jsem to podle vasich rad, diky za ne, nektere veci mi tam ale vrtaji
hlavou.
Tyka se to spousteni e-mailu:
V prikaze
ShellExecute(Handle, nil, PChar(mailto
:'mailto:delphi-l@clexpert.cz?Subject=Pokusny subject&Body=jedna dva tri
ctyri'),
nil, nil, SW_SHOW);
stoji za povsimnuti (u parametru lpFile), ze před 'Subject' je '?' a před
'Body' je '&'.
Timto zpusobem se mi podarilo dostat do e-mailu i telo zpravy, jinak to
nefungovalo.
Proc ? a &, je from neporadek ne?
Taky jsem nemohl dostat do tela zpravy prechod na novy radek (zkousel jsem
#13#10, #13, #10).
A uz vubec se mi nepodarilo nadefinovat prilohu (&Attach=, ?Attachment= ,
atp.)
Vyzna se v tom nekdo?
Andreas D4, W98
Odpovedá: KALUS Jozef
25. 10. 2002 12:15
tos to je MS, ak chces o tom vediet viac musis hladat v MSDN
dufam ze to tam uz niekto nasiel a hodi to hned do konferencie
apropo, to su konvencie HTML... takze tak...
joka
-----Original Message-----
From: Andreas Bednarek [mailto:bednarek@digitus.cz]
Sent: Friday, October 25, 2002 12:55 PM
To: delphi-l@clexpert.cz
Subject: Re: About
Ahoj,
zkousel jsem to podle vasich rad, diky za ne, nektere veci mi tam ale
vrtaji
hlavou.
Tyka se to spousteni e-mailu:
V prikaze
ShellExecute(Handle, nil, PChar(mailto
:'mailto:delphi-l@clexpert.cz?Subject=Pokusny subject&Body=jedna dva tri
ctyri'),
nil, nil, SW_SHOW);
stoji za povsimnuti (u parametru lpFile), ze před 'Subject' je '?' a
před
'Body' je '&'.
Timto zpusobem se mi podarilo dostat do e-mailu i telo zpravy, jinak to
nefungovalo.
Proc ? a &, je from neporadek ne?
Taky jsem nemohl dostat do tela zpravy prechod na novy radek (zkousel
jsem
#13#10, #13, #10).
A uz vubec se mi nepodarilo nadefinovat prilohu (&Attach=, ?Attachment=
,
atp.)
Vyzna se v tom nekdo?
Andreas D4, W98
__________ Informacia od NOD32 1.320 (20021022) __________
Tato sprava bola preverena systemom NOD32 pre Exchange.
http://www.eset.sk
Odpovedá: Marek Eichler
25. 10. 2002 12:25
Zdravim,
Od: "Andreas Bednarek" <bednarek@digitus.cz>
> V prikaze
>
> ShellExecute(Handle, nil, PChar(mailto
>
:'mailto:delphi-l@clexpert.cz?Subject=Pokusny subject&Body=jedna dva tri
> ctyri'),
> nil, nil, SW_SHOW);
>
> stoji za povsimnuti (u parametru lpFile), ze před 'Subject' je '?' a před
> 'Body' je '&'.
> Timto zpusobem se mi podarilo dostat do e-mailu i telo zpravy, jinak to
> nefungovalo.
>
> Proc ? a &, je from neporadek ne?
? urcuje u URL adresy, ze jsou predavany nejake parametry
& oddeluje jednotlive parametry dotazu
S pozdravem Marek Eichler
Odpovedá: KALUS Jozef
25. 10. 2002 13:02
pozrel som to MSDN, je tam toto:
Syntax
mailto:sAddress[sHeaders]
Tokens
sAddress
One or more valid e-mail addresses separated by a semicolon. You must
use Internet-safe characters. Use %20 for the space character.
sHeaders
Optional. One or more name-value pairs. The first pair should be
prefixed by a "?" and any additional pairs should be prefixed by a "&".
The name can be one of the following strings.
subject
Text to appear in the subject line of the message.
body
Text to appear in the body of the message.
CC
Addresses to be included in the "cc" (carbon copy) section of the
message.
BCC
Addresses to be included in the "bcc" (blind carbon copy) section of the
message.
-----Original Message-----
From: KALUS Jozef [mailto:jozef.kalus@spordat.sk]
Sent: Friday, October 25, 2002 12:58 PM
To: delphi-l@clexpert.cz
Subject: RE: About
tos to je MS, ak chces o tom vediet viac musis hladat v MSDN
dufam ze to tam uz niekto nasiel a hodi to hned do konferencie
apropo, to su konvencie HTML... takze tak...
joka
Odpovedá: Andreas Bednarek
31. 10. 2002 10:53
Diky moc, podle vseho se tedy timto zpusobem nedaji pridat prilohy
(Attach= nebo Attachment= nefunguje)
no nic
Andreas
----- Original Message -----
From: KALUS Jozef <jozef.kalus@spordat.sk>
To: <delphi-l@clexpert.cz>
Sent: Friday, October 25, 2002 12:24 PM
Subject: RE: About
> pozrel som to MSDN, je tam toto:
>
> Syntax
>
> mailto:sAddress[sHeaders]
> Tokens
>
> sAddress
> One or more valid e-mail addresses separated by a semicolon. You must
> use Internet-safe characters. Use %20 for the space character.
> sHeaders
> Optional. One or more name-value pairs. The first pair should be
> prefixed by a "?" and any additional pairs should be prefixed by a "&".
> The name can be one of the following strings.
> subject
> Text to appear in the subject line of the message.
> body
> Text to appear in the body of the message.
> CC
> Addresses to be included in the "cc" (carbon copy) section of the
> message.
> BCC
> Addresses to be included in the "bcc" (blind carbon copy) section of the
> message.
>
>
> -----Original Message-----
> From: KALUS Jozef [mailto:jozef.kalus@spordat.sk]
> Sent: Friday, October 25, 2002 12:58 PM
> To: delphi-l@clexpert.cz
> Subject: RE: About
>
>
> tos to je MS, ak chces o tom vediet viac musis hladat v MSDN
>
> dufam ze to tam uz niekto nasiel a hodi to hned do konferencie
>
> apropo, to su konvencie HTML... takze tak...
>
> joka